home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Readers / Gui4Cli / Docs / GC_Chart_11 < prev    next >
Text File  |  1997-12-02  |  5KB  |  327 lines
  1. G4C
  2.  
  3. winbig -1 -1 390 104 "GC Font Chart (Buttons are 30x14)"
  4. wintype 11110001
  5.  
  6. xonload
  7. guiopen gc_Chart_11
  8.  
  9. xonclose
  10. delvar gc_char
  11. guiquit gc_Chart_11
  12.  
  13. box 0 84 0 20 out button
  14.  
  15. text 50 88 70 12 "" 3 nobox
  16. gadid 1
  17. gadfont gc.font 11 000
  18.  
  19. text 100 88 270 12 "" 30 box
  20. gadid 2
  21. gadtxt center
  22.  
  23. xbutton 0 0 30 14 a
  24. gadfont gc.font 11 000
  25. gc_char = a
  26. gosub gc_Chart_11 update
  27.  
  28. xbutton 30 0 30 14 b
  29. gadfont gc.font 11 000
  30. gc_char = b
  31. gosub gc_Chart_11 update
  32.  
  33. xbutton 60 0 30 14 c
  34. gadfont gc.font 11 000
  35. gc_char = c
  36. gosub gc_Chart_11 update
  37.  
  38. xbutton 90 0 30 14 d
  39. gadfont gc.font 11 000
  40. gc_char = d
  41. gosub gc_Chart_11 update
  42.  
  43. xbutton 120 0 30 14 e
  44. gadfont gc.font 11 000
  45. gc_char = e
  46. gosub gc_Chart_11 update
  47.  
  48. xbutton 150 0 30 14 f
  49. gadfont gc.font 11 000
  50. gc_char = f
  51. gosub gc_Chart_11 update
  52.  
  53. xbutton 180 0 30 14 g
  54. gadfont gc.font 11 000
  55. gc_char = g
  56. gosub gc_Chart_11 update
  57.  
  58. xbutton 210 0 30 14 h
  59. gadfont gc.font 11 000
  60. gc_char = h
  61. gosub gc_Chart_11 update
  62.  
  63. xbutton 240 0 30 14 i
  64. gadfont gc.font 11 000
  65. gc_char = i
  66. gosub gc_Chart_11 update
  67.  
  68. xbutton 270 0 30 14 j
  69. gadfont gc.font 11 000
  70. gc_char = j
  71. gosub gc_Chart_11 update
  72.  
  73. xbutton 300 0 30 14 k
  74. gadfont gc.font 11 000
  75. gc_char = k
  76. gosub gc_Chart_11 update
  77.  
  78. xbutton 330 0 30 14 l
  79. gadfont gc.font 11 000
  80. gc_char = l
  81. gosub gc_Chart_11 update
  82.  
  83. xbutton 360 0 30 14 m
  84. gadfont gc.font 11 000
  85. gc_char = m
  86. gosub gc_Chart_11 update
  87.  
  88. xbutton 0 14 30 14 A
  89. gadfont gc.font 11 000
  90. gc_char = A
  91. gosub gc_Chart_11 update
  92.  
  93. xbutton 30 14 30 14 B
  94. gadfont gc.font 11 000
  95. gc_char = B
  96. gosub gc_Chart_11 update
  97.  
  98. xbutton 60 14 30 14 C
  99. gadfont gc.font 11 000
  100. gc_char = C
  101. gosub gc_Chart_11 update
  102.  
  103. xbutton 90 14 30 14 D
  104. gadfont gc.font 11 000
  105. gc_char = D
  106. gosub gc_Chart_11 update
  107.  
  108. xbutton 120 14 30 14 E
  109. gadfont gc.font 11 000
  110. gc_char = E
  111. gosub gc_Chart_11 update
  112.  
  113. xbutton 150 14 30 14 F
  114. gadfont gc.font 11 000
  115. gc_char = F
  116. gosub gc_Chart_11 update
  117.  
  118. xbutton 180 14 30 14 G
  119. gadfont gc.font 11 000
  120. gc_char = G
  121. gosub gc_Chart_11 update
  122.  
  123. xbutton 210 14 30 14 H
  124. gadfont gc.font 11 000
  125. gc_char = H
  126. gosub gc_Chart_11 update
  127.  
  128. xbutton 240 14 30 14 I
  129. gadfont gc.font 11 000
  130. gc_char = I
  131. gosub gc_Chart_11 update
  132.  
  133. xbutton 270 14 30 14 J
  134. gadfont gc.font 11 000
  135. gc_char = J
  136. gosub gc_Chart_11 update
  137.  
  138. xbutton 300 14 30 14 K
  139. gadfont gc.font 11 000
  140. gc_char = K
  141. gosub gc_Chart_11 update
  142.  
  143. xbutton 330 14 30 14 L
  144. gadfont gc.font 11 000
  145. gc_char = L
  146. gosub gc_Chart_11 update
  147.  
  148. xbutton 360 14 30 14 M
  149. gadfont gc.font 11 000
  150. gc_char = M
  151. gosub gc_Chart_11 update
  152.  
  153. xbutton 0 28 30 14 n
  154. gadfont gc.font 11 000
  155. gc_char = n
  156. gosub gc_Chart_11 update
  157.  
  158. xbutton 30 28 30 14 o
  159. gadfont gc.font 11 000
  160. gc_char = o
  161. gosub gc_Chart_11 update
  162.  
  163. xbutton 60 28 30 14 p
  164. gadfont gc.font 11 000
  165. gc_char = p
  166. gosub gc_Chart_11 update
  167.  
  168. xbutton 90 28 30 14 q
  169. gadfont gc.font 11 000
  170. gc_char = q
  171. gosub gc_Chart_11 update
  172.  
  173. xbutton 120 28 30 14 r
  174. gadfont gc.font 11 000
  175. gc_char = r
  176. gosub gc_Chart_11 update
  177.  
  178. xbutton 150 28 30 14 s
  179. gadfont gc.font 11 000
  180. gc_char = s
  181. gosub gc_Chart_11 update
  182.  
  183. xbutton 180 28 30 14 t
  184. gadfont gc.font 11 000
  185. gc_char = t
  186. gosub gc_Chart_11 update
  187.  
  188. xbutton 210 28 30 14 u
  189. gadfont gc.font 11 000
  190. gc_char = u
  191. gosub gc_Chart_11 update
  192.  
  193. xbutton 240 28 30 14 v
  194. gadfont gc.font 11 000
  195. gc_char = v
  196. gosub gc_Chart_11 update
  197.  
  198. xbutton 270 28 30 14 w
  199. gadfont gc.font 11 000
  200. gc_char = w
  201. gosub gc_Chart_11 update
  202.  
  203. xbutton 300 28 30 14 x
  204. gadfont gc.font 11 000
  205. gc_char = x
  206. gosub gc_Chart_11 update
  207.  
  208. xbutton 330 28 30 14 y
  209. gadfont gc.font 11 000
  210. gc_char = y
  211. gosub gc_Chart_11 update
  212.  
  213. xbutton 360 28 30 14 z
  214. gadfont gc.font 11 000
  215. gc_char = z
  216. gosub gc_Chart_11 update
  217.  
  218. xbutton 0 42 30 14 N
  219. gadfont gc.font 11 000
  220. gc_char = N
  221. gosub gc_Chart_11 update
  222.  
  223. xbutton 30 42 30 14 O
  224. gadfont gc.font 11 000
  225. gc_char = O
  226. gosub gc_Chart_11 update
  227.  
  228. xbutton 60 42 30 14 P
  229. gadfont gc.font 11 000
  230. gc_char = P
  231. gosub gc_Chart_11 update
  232.  
  233. xbutton 90 42 30 14 Q
  234. gadfont gc.font 11 000
  235. gc_char = Q
  236. gosub gc_Chart_11 update
  237.  
  238. xbutton 120 42 30 14 R
  239. gadfont gc.font 11 000
  240. gc_char = R
  241. gosub gc_Chart_11 update
  242.  
  243. xbutton 150 42 30 14 S
  244. gadfont gc.font 11 000
  245. gc_char = S
  246. gosub gc_Chart_11 update
  247.  
  248. xbutton 180 42 30 14 T
  249. gadfont gc.font 11 000
  250. gc_char = T
  251. gosub gc_Chart_11 update
  252.  
  253. xbutton 210 42 30 14 U
  254. gadfont gc.font 11 000
  255. gc_char = U
  256. gosub gc_Chart_11 update
  257.  
  258. xbutton 240 42 30 14 V
  259. gadfont gc.font 11 000
  260. gc_char = V
  261. gosub gc_Chart_11 update
  262.  
  263. xbutton 270 42 30 14 W
  264. gadfont gc.font 11 000
  265. gc_char = W
  266. gosub gc_Chart_11 update
  267.  
  268. xbutton 300 42 30 14 X
  269. gadfont gc.font 11 000
  270. gc_char = X
  271. gosub gc_Chart_11 update
  272.  
  273. xbutton 330 42 30 14 Y
  274. gadfont gc.font 11 000
  275. gc_char = Y
  276. gosub gc_Chart_11 update
  277.  
  278. xbutton 360 42 30 14 Z
  279. gadfont gc.font 11 000
  280. gc_char = Z
  281. gosub gc_Chart_11 update
  282.  
  283. xbutton 0 56 30 14 !
  284. gadfont gc.font 11 000
  285. gc_char = !
  286. gosub gc_Chart_11 update
  287.  
  288. xbutton 0 70 30 14 1
  289. gadfont gc.font 11 000
  290. gc_char = 1
  291. gosub gc_Chart_11 update
  292.  
  293. xbutton 30 56 30 14 @
  294. gadfont gc.font 11 000
  295. gc_char = @
  296. gosub gc_Chart_11 update
  297.  
  298. xbutton 30 70 30 14 2
  299. gadfont gc.font 11 000
  300. gc_char = 2
  301. gosub gc_Chart_11 update
  302.  
  303. xbutton 60 56 30 14 #
  304. gadfont gc.font 11 000
  305. gc_char = #
  306. gosub gc_Chart_11 update
  307.  
  308. xbutton 60 70 30 14 3
  309. gadfont gc.font 11 000
  310. gc_char = 3
  311. gosub gc_Chart_11 update
  312.  
  313. xbutton 90 56 30 14 $
  314. gadfont gc.font 11 000
  315. set translation off
  316. update gc_Chart_11 1 "$"
  317. update gc_Chart_11 2 "This is the '$' character" 
  318.  
  319. xbutton 90 70 30 14 4
  320. gadfont gc.font 11 000
  321. gc_char = 4
  322. gosub gc_Chart_11 update
  323.  
  324. xroutine update
  325. update gc_Chart_11 1 $gc_char
  326. update gc_Chart_11 2 "This is the '$gc_char' character" 
  327.